home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO088A.dsk / INSTAL.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  163 lines
  1. 10  REM  YO YO DUCK DIAGNOSTIC PROGRAM
  2. 20  REM  SPECIAL INSTALLER'S EDITION
  3. 22 D$ =  CHR$(4)
  4. 30  IF  PEEK(64448) = 224  AND  PEEK(65055) = 96  THEN COMP$ = "IIE Enhanced":NL = 1
  5. 32  IF  PEEK(64448) = 224  AND  PEEK(65055) = 173  THEN COMP$ = "IIGS":NL = 2
  6. 34  IF  PEEK(64448) = 0  THEN COMP$ = "IIC":NL = 3
  7. 40  PRINT D$;"OPEN NUMCOMP,L20"
  8. 42  PRINT D$;"READ  NUMCOMP,R";NL
  9. 43  INPUT NC
  10. 44  PRINT D$;"CLOSE NUMCOMP"
  11. 48 NC = NC +1
  12. 50  PRINT D$;"OPEN NUMCOMP,L20"
  13. 52  PRINT D$;"WRITE NUMCOMP,R";NL
  14. 54  PRINT NC
  15. 56  PRINT D$;"CLOSE NUMCOMP"
  16. 110  HOME 
  17. 120  VTAB 8: PRINT "TESTING FOR COMPUTER-DRIVE CONNECTION"
  18. 130  PRINT : PRINT  TAB( 5);"TYPE 'Q' TO SKIP C.D.CONNECTION"
  19. 140  VTAB 15: PRINT  TAB( 5);"SLOT NUMBER: 5"
  20. 150  VTAB 15: HTAB 18: GET S$: PRINT S$
  21. 160  IF S$ = "Q"  OR S$ = "q"  THEN 470
  22. 170  IF S$ =  CHR$(13)  THEN SN = 5: GOTO 200
  23. 180  IF S$ <"5"  OR S$ >"7"  THEN  PRINT  CHR$(7): GOTO 140
  24. 190 SN =  VAL(S$)
  25. 200  VTAB 17: PRINT  TAB( 4);"DRIVE NUMBER: 2"
  26. 210  VTAB 17: HTAB 18: GET DN$: PRINT DN$
  27. 220  IF DN$ =  CHR$(13)  THEN DN = 2: GOTO 260
  28. 230  IF DN$ = "Q"  OR DN$ = "q"  THEN 470
  29. 240  IF DN$ <"1"  OR DN$ >"2"  THEN  PRINT  CHR$(7): GOTO 200
  30. 250 DN =  VAL(DN$)
  31. 260  HOME 
  32. 270  VTAB 8: PRINT  TAB( 6);"PLACE YO YO DIAGNOSTIC DISK": PRINT 
  33. 280  PRINT  TAB( 10);"INTO SLOT ";SN;" DRIVE ";DN
  34. 290  PRINT : PRINT  TAB( 7);"PRESS RETURN TO CONTINUE: ";
  35. 300  GET P$: PRINT P$
  36. 310  PRINT  CHR$(4);"CAT,S";SN;",D";DN
  37. 320  PRINT : PRINT : PRINT 
  38. 330  VTAB 22: PRINT  TAB( 6);"PRESS RETURN TO CONTINUE: ";: GET A$: PRINT A$
  39. 340  HOME 
  40. 350  VTAB 8: HTAB 6
  41. 360  PRINT "PLACE YO YO DIAGNOSTIC DISK"
  42. 370  PRINT : PRINT  TAB( 10);"INTO SLOT 5"
  43. 380  VTAB 10: HTAB 20: GET S$: PRINT S$
  44. 390  IF S$ =  CHR$(13)  THEN SN = 5: GOTO 420
  45. 400  IF S$ <"5"  OR S$ >"7"  THEN  PRINT  CHR$(7): GOTO 380
  46. 410 SN =  VAL(S$)
  47. 420  VTAB 10: HTAB 22: PRINT "DRIVE 1"
  48. 430  VTAB 10: HTAB 28: GET DN$: PRINT DN$
  49. 440  IF DN$ =  CHR$(13)  THEN DN = 1: GOTO 470
  50. 450  IF DN$ <"1"  OR DN$ >"2"  THEN  PRINT  CHR$(7): GOTO 430
  51. 460 DN =  VAL(DN$)
  52. 470  REM  MONITOR TESTS
  53. 500 U = 9:D = 3:E =  -16384:F =  -16368:G =  -16287:H =  -16286:Z = 127
  54. 510  POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 773,4: POKE 774,198: POKE 775,7
  55. 520  POKE 776,240: POKE 777,8: POKE 778,202: POKE 779,208: POKE 780,246: POKE 781,166: POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,03: POKE 786,96
  56. 525  TEXT : HOME : PRINT : POKE F,0
  57. 530  GOSUB 532
  58. 531  GOTO 550
  59. 532  GR : FOR I = 0 TO 31: COLOR= I/2: VLIN 0,39 AT I +3: NEXT I
  60. 534  COLOR= 5: VLIN 0,39 AT 2: VLIN 0,39 AT 35: HLIN 2,35 AT 0: HLIN 2,35 AT 39
  61. 536  FOR I = 1 TO  LEN(A$)
  62. 538  HTAB 2 *I +2: PRINT  MID$ (A$,I,1);
  63. 540  NEXT I: RETURN 
  64. 550 A$ = "BMDPDGMLBOGPLYAW": GOSUB 536: PRINT 
  65. 560 A$ = "LGBUGRBBRRRIGEQI": GOSUB 536: PRINT 
  66. 570 A$ = "ATLRRELLWNENRLUT": GOSUB 536: PRINT 
  67. 580 A$ = "KAUPNYUUNGYKNOAE": GOSUB 536
  68. 590  GET A$: PRINT A$
  69. 600  REM  CROSSHATCH TEST
  70. 610  HGR2 : HCOLOR= 7
  71. 620  FOR Y = 0 TO 180  STEP 18: HPLOT 0,Y TO 279,Y: NEXT Y
  72. 630  FOR X = 0 TO 252  STEP 28: HPLOT X,0 TO X,179: NEXT X
  73. 640  HPLOT 279,0 TO 279,179
  74. 650  GET A$: PRINT A$
  75. 720  REM  
  76. 730 M1$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
  77. 740 M2$ = "abcdefghijklmnopqrstuvwxyz"
  78. 750  TEXT : NORMAL : HOME 
  79. 760  PRINT "THIS IS NORMAL": PRINT : PRINT M1$: PRINT M2$
  80. 770  PRINT : PRINT : FLASH 
  81. 780  PRINT "THIS IS FLASH": PRINT : PRINT M1$
  82. 790  NORMAL : PRINT : PRINT : INVERSE 
  83. 800  PRINT "THIS IS INVERSE": PRINT : PRINT M1$
  84. 810  NORMAL 
  85. 820  VTAB 22: PRINT  TAB( 7);"PRESS A KEY TO CONTINUE: ";: GET A$: PRINT A$
  86. 830  PRINT  CHR$(4);"PR#3"
  87. 840  PRINT : PRINT : PRINT : PRINT 
  88. 850  PRINT "THIS IS NORMAL": POKE 1403,5: PRINT M1$: PRINT M2$
  89. 860  PRINT : PRINT 
  90. 870  PRINT "This is MouseText"
  91. 880  PRINT  CHR$(27); CHR$(15);
  92. 890  POKE 1403,5
  93. 900  PRINT "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"
  94. 910  PRINT  CHR$(24): REM  TURN OFF ALT CHAR SET  
  95. 920  PRINT : PRINT "THIS IS INVERSE"
  96. 930  POKE 1403,5: PRINT M1$
  97. 940  POKE 1403,5: PRINT M2$
  98. 950  PRINT  CHR$(14): REM  NORMAL
  99. 960  FOR I = 1 TO 1200: NEXT I
  100. 970  PRINT  CHR$(17);: FOR J = 1 TO 2250: NEXT J: PRINT  CHR$(18)
  101. 980  PRINT : PRINT : PRINT : PRINT : PRINT 
  102. 990  PRINT "PRESS RETURN TO CONTINUE: ";
  103. 1000  CALL  -756
  104. 1010  PRINT  CHR$(12); CHR$(21)
  105. 1050  HOME 
  106. 1060  VTAB 8: PRINT "IS THERE A PRINTER ATTACTED?  (Y/N) "
  107. 1070  VTAB 8: HTAB 36: GET A$: PRINT A$
  108. 1080  IF A$ = "N"  OR A$ = "n"  THEN  END 
  109. 1090  IF A$ < >"Y"  OR A$ < >"y"  THEN  PRINT  CHR$(7): GOTO 1070
  110. 1110 EX$ = "THIS IS EXTENDED (9 CPI)
  111. 1120 P$ = "THIS IS PICA (12 CPI)"
  112. 1130 E$ = "THIS IS ELITE (10 CPI)"
  113. 1140 CO$ = "THIS IS CONDENSED (15 CPI)
  114. 1150 M$ = "THIS IS MICRON (17 CPI)"
  115. 1160 CM$ = "THIS IS COMPRESSED (17.6 CPI)
  116. 1170 EM$ = "THIS IS THE EMPHASIZED MODE"
  117. 1180 NM$ = "THIS IS THE NEAR LETTER QUALITY MODE"
  118. 1190 N1$ = "     PRINTER TEST FOR:  "
  119. 1200 N2$ = "     MAKE SURE PRINTER IS TURNED ON"
  120. 1210 SB$ = "     PRESS <SPACEBAR> TO CONTINUE: "
  121. 1220 M4$ = "           (314) 837-1200"
  122. 1230 M5$ = "  THE BOTTOM LINE"
  123. 1240 M6$ = "  16 CROSS KEYS SHOPPING CENTER"
  124. 1250 M7$ = "  FLORISSANT  MO  63033"
  125. 1260 M8$ = "   THE                     HELPING YOUR"
  126. 1270 M9$ = "     BOTTOM                 KIDS MAKE"
  127. 1280 MA$ = "         LINE               THE GRADE"
  128. 1290  REM    IMAGEWRITER II BLACK PRINT TEST
  129. 1300  PRINT D$;"PR#1"
  130. 1310  PRINT  CHR$(14): PRINT "IMAGEWRITER GRAPHICS PRINTER DEMO": PRINT  CHR$(15)
  131. 1320  PRINT : PRINT : PRINT "This is a sample APPLE IMAGEWRITER II printout"
  132. 1330  REM  9 CPI
  133. 1340  PRINT  CHR$(27); CHR$(110): PRINT EX$
  134. 1350  PRINT 
  135. 1360  REM  PICA
  136. 1370  PRINT  CHR$(27); CHR$(78): PRINT P$
  137. 1380  REM  ELITE
  138. 1390  PRINT  CHR$(27); CHR$(69): PRINT E$
  139. 1400  REM  CONDENSED
  140. 1410  PRINT  CHR$(27); CHR$(113): PRINT CO$
  141. 1420  REM  MICRON
  142. 1430  PRINT  CHR$(27); CHR$(81): PRINT M$
  143. 1440  REM  BACK TO PICA
  144. 1450  PRINT  CHR$(27); CHR$(34); CHR$(14)
  145. 1460  PRINT "EXPANDED TYPE IS AN OPTION ON ANY PRINT SIZE"
  146. 1470  PRINT  CHR$(15)
  147. 1480  PRINT  CHR$(27); CHR$(78)
  148. 1490  PRINT  CHR$(27); CHR$(88): PRINT "UNDERLINE IS AN OPTION ON ANY PRINT SIZE": PRINT  CHR$(27); CHR$(89)
  149. 1500  PRINT  CHR$(27); CHR$(78): PRINT "This is Pica";
  150. 1510  PRINT  CHR$(27); CHR$(112): PRINT "This is Pica proportional"
  151. 1520  PRINT  CHR$(27); CHR$(69): PRINT "This is Elite";
  152. 1530  PRINT  CHR$(27); CHR$(80): PRINT "This is Elite proportional"
  153. 1540  PRINT  CHR$(27); CHR$(78)
  154. 1550  REM   NLQ 
  155. 1560  PRINT  CHR$(27); CHR$(97); CHR$(50): PRINT NM$
  156. 1570  REM  SUPERSCRIPT - SUBSCRIPT
  157. 1580  PRINT : PRINT "AND THIS IS ";: PRINT  CHR$(27); CHR$(120);: PRINT "SUPERSCRIPT";: PRINT  CHR$(27); CHR$(122);: PRINT " AND THIS IS ";: PRINT  CHR$(27); CHR$(121);: PRINT "SUBSCRIPT"
  158. 1590  REM  NORMAL (SUBSCRIPT OFF, DRAFT, ELITE
  159. 1600  PRINT  CHR$(27); CHR$(122): PRINT  CHR$(27); CHR$(69): PRINT  CHR$(27); CHR$(97); CHR$(49)
  160. 1610  REM  END MESSAGE
  161. 1620  PRINT : PRINT M5$: PRINT M6$: PRINT M7$: PRINT : PRINT M8$: PRINT M9$: PRINT MA$
  162. 1630  PRINT : PRINT M4$
  163. 1640  PRINT  CHR$(4);"PR#0"